home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / fake2.arc / CENTRAL.BAS (.txt) next >
Encoding:
GW-BASIC  |  1986-11-01  |  576 b   |  17 lines
  1. 10  CLS:KEY OFF:LOCATE ,,0
  2. 20  COLOR 19:LOCATE 10,30:PRINT "Central Park"
  3. 30  COLOR 12:LOCATE 12,30:PRINT "Auto-Dialer/Code Smasher/Password Snatcher"
  4. 40  COLOR 9:LOCATE 14,30:PRINT "All around scary program"
  5. 50  COLOR 17:LOCATE 25,1:PRINT "Press any key to continue....."
  6. 60  IF INKEY$="" THEN 60
  7. 70  CLS
  8. 80  FOR X=1 TO 24:COLOR 4:LOCATE X,X:PRINT " By the Incredible":NEXT X
  9. 90  FOR X=1 TO 15:COLOR X:PRINT TAB(X)"Phreak Phantom"
  10. 100  NEXT X
  11. 110  FOR X=1 TO 2500:NEXT X
  12. 120  CLS
  13. 130  COLOR 15:LOCATE 1,1:PRINT "Entry Code?":INPUT A$
  14. 140  IF A$="3c4299a1a199423c" THEN 150 ELSE CLS:FOR X=1 TO 20:COLOR X:NEXT X:FOR X=1 TO 24:PRINT TAB(X)"Wrong":NEXT X: FOR D=1 TO 1000:NEXT D:CLS:GOTO 130
  15. 150  PRINT "Hi, welcome to Central Park!":FOR X=1 TO 500:NEXT X
  16. 160  RUN"Fake2
  17.